﻿Imports DAO
Imports DTO
Public Class KhachHangBUS
    Public Shared Function DangKyKhachHang(ByVal KhachHang As BangKhachHangDTO) As Integer
        Dim kq As Integer
        kq = KhachHangDAO.DangKyKhachHang(KhachHang)
        Return kq
    End Function
    Public Shared Function LayToanBoKhachHang() As DataTable
        Return KhachHangDAO.LayToanBoKhachHang()
    End Function
    Public Shared Function LayNhungKhachHangConBiNo() As DataTable
        Return KhachHangDAO.LayNhungKhachHangConBiNo()
    End Function
    Public Shared Function DoDuLieuVaoPhieuThu(ByVal MaKhachHang As Integer) As DataTable
        Return KhachHangDAO.DoDuLieuVaoPhieuThu(MaKhachHang)

    End Function
    Public Shared Function LaySoTienKhachHangNo(ByVal KhachHangDTO As BangKhachHangDTO) As Double
        Dim kq As Double = KhachHangDAO.LaySoTienKhachHangNo(KhachHangDTO)
        Return kq
    End Function
    ' Cap nhat lai so tien no sau khi khach hang da thanh toan
    Public Shared Function CapNhatLaiTienNo(ByVal KhachHangDTO As BangKhachHangDTO) As Double
        Dim kq As Double = KhachHangDAO.CapNhatLaiTienNo(KhachHangDTO)
        Return kq
    End Function
    ' kiem tra khach hang nay da toan tai chua
    Public Shared Function KiemTraTrung(ByVal KhachHang As BangKhachHangDTO) As Integer
        Dim kq As Integer = KhachHangDAO.KiemTraTrung(KhachHang)
        Return kq
    End Function
End Class
